Benim Yaptığım Kadarıyla 11 Tane Button 2 Tanede Text box:
>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<
Cod'Ları Aynen Geçirebilirsiniz...:
___________________________________
Private Sub Command1_Click()
Text2.Text = "l-l-l-l-l" + Text1.Text + "l-l-l-l-l"
End Sub
Private Sub Command2_Click()
Text2.Text = "&+(/&" + Text1.Text + ")(&%%(&"
End Sub
Private Sub Command3_Click()
Text2.Text = "/&%/(" + Text1.Text + "&)(&("
End Sub
Private Sub Command4_Click()
Text2.Text = "(?_=(=" + Text1.Text + ")?_))_?)"
End Sub
Private Sub Command5_Click()
Text2.Text = "_---__--_" + Text1.Text + "_---__--_"
End Sub
Private Sub Command6_Click()
Text2.Text = "/_/_/_/_/" + Text1.Text + "\_\_\_\_\"
End Sub
Private Sub Command7_Click()
Text2.Text = "______////////" + Text1.Text + "\\\\\\\\______"
End Sub
Private Sub Command8_Click()
Text2.Text = "/\/\/\" + Text1.Text + "/\/\/\"
End Sub
Private Sub Command9_Click()
Text2.Text = "<<<<<" + Text1.Text + ">>>>>"
End Sub
Private Sub Command10_Click()
Text2.Text = ">>>>>" + Text1.Text + "<<<<<"
End Sub
Private Sub Command11_Click()
Text2.Text = "___((==" + Text1.Text + "==))___"
End Sub
_______________________________________
Ne Kadar Uzatırsanız Okadar Buton Ekleyin
berk &&#3541iceberk&&#3540
wardom.iceberk001@gmail.com