[سعود]

اخي الكريم mo93
كلنا نريد هالشي لكن غير متوفر ...
فيه سؤال شبيه وجوابه شبيه ايضا
الحل ان تعمل فورم مخصص لما تريده او تقبل الوضع الراهن.
وكل عام و انتم بخير.
المرفق مثال بسيط ممكن تسوي افضل منه



موديول 

كود :

Module inp
   Public ok As Boolean = False
   Public Function inpts(ByVal title As String, ByVal lb As String, ByVal def As String) As Boolean
       myinputbox.Text = title
       myinputbox.lbl.Text = lb
       myinputbox.txtinput.Text = def
       myinputbox.ShowDialog()
       If ok = True Then
           Return True
       Else
           Return False
       End If
   End Function
End Module

فورم الـ Inputbox

كود :

Public Class myinputbox
   Private Sub btnok_Click(sender As Object, e As EventArgs) Handles btnok.Click
       ok = True
       Me.Close()
   End Sub

   Private Sub btncancel_Click(sender As Object, e As EventArgs) Handles btncancel.Click
       ok = False
       Me.Close()
   End Sub
End Class

فورم الاستخدام

كود :

Public Class Form1
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       If inpts("هلا بيكم", "فضلا اكتب نص", "هنا رسالتك") = True Then
           ListBox1.Items.Add(myinputbox.txtinput.Text)
       End If
   End Sub
End Class